;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 11/9/2015
;;;	   Edited: 11/9/2015
;;;
(DEFUN C:IMAGELAYERS ()
  (VL-LOAD-COM)
  (IF layentmake NIL (LOAD "layentmake" "\nFile LAYENTMAKE.LSP not loaded! "))
  (IF c3difodoc
    nil
    (LOAD "c3difodoc" "\nFile C3DIFODOC not loaded! ")
  ) ;_ end of IF
  (c3difodoc)
  (SETQ image-obj-ss (SSGET '((0 . "IMAGE"))))
  (SETQ ss-cnt 0)
  (WHILE (< ss-cnt (SSLENGTH image-obj-ss))
    (SETQ image-obj (VLAX-ENAME->VLA-OBJECT (SSNAME image-obj-ss ss-cnt)))
    (SETQ image-name (VLAX-GET-PROPERTY image-obj 'Name))
    (layentmake image-name "7" "continuous")
    (VLAX-PUT-PROPERTY image-obj 'Layer image-name)
    (SETQ ss-cnt (1+ ss-cnt))
  )
  (PRINC)
)